home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 24 / AMIGAplus Sonderheft 24 (2000)(Falke)(DE)[!].iso / PublicDomain / Anwendungen / MT-RechnungIII / PrintDoks / RechnungsübZusB_W1.outpri < prev    next >
Text File  |  1999-03-27  |  13KB  |  600 lines
  1. 2$VER: RechnungsübZusatz B Währung1 1.01 (27.03.99)
  2. %!PS-Adobe-3.0
  3. %%Creator: Manfred Tremmel
  4. %%CreationDate: (27.03.1999)
  5. %%Version: 1.01
  6. %%Title: (MT-RechnungIII - Rechnungsübersicht B Währung1 mit Versandzusatzkosten)
  7. %%LanguageLevel: 2
  8. %%DocumentMedia: A4 594 839 null () ()
  9. %%DocumentNeededResources: font Times-Roman
  10. %%BoundingBox: 0 0 549 839
  11. %%EndComments
  12. %%BeginnDefaults
  13. %%PageMedia: A4
  14. %%EndDefaults
  15.  
  16. %%BeginnSetup
  17. << /PageSize [594 839] >> setpagedevice
  18.  
  19. /PageSize [594 839] def
  20.  
  21. /DokumentRandX 54 def
  22. /DokumentRandY 50 def
  23.  
  24. DruckrandX 720 mul 256 div /DruckrandX exch def
  25. DruckrandY 720 mul 256 div /DruckrandY exch def
  26.  
  27. DruckrandX DokumentRandX ge
  28. {
  29.     0 /DokumentRandX exch def
  30. }
  31. {
  32.     DokumentRandX DruckrandX sub /DokumentRandX exch def
  33. } ifelse
  34.  
  35. DruckrandY DokumentRandY ge
  36. {
  37.     PageSize 1 get /DokumentRandY exch def
  38. }
  39. {
  40.     PageSize 1 get DokumentRandY sub DruckrandY add /DokumentRandY exch def
  41. } ifelse
  42.  
  43. /DokumentRandYOriginal DokumentRandY def
  44. %%EndSetup
  45.  
  46. %%BeginnResource
  47. /reencodedict 5 dict def
  48. /ReEncode
  49. {
  50.      reencodedict begin
  51.      /newencoding exch def
  52.      /newfontname exch def
  53.      /basefontname exch def
  54.  
  55.      /basefontdict basefontname findfont def
  56.  
  57.      /newfont basefontdict maxlength dict def
  58.  
  59.      basefontdict
  60.      { exch dup dup /FID ne exch /Encoding ne and
  61.           { exch newfont 3 1 roll put }
  62.           { pop pop }
  63.           ifelse
  64.      } forall
  65.      newfont /FontName newfontname put
  66.      newfont /Encoding newencoding put
  67.      newfontname newfont definefont pop
  68.      end
  69. } def
  70.  
  71. /ISOLatin8Encoding
  72. [
  73.     ISOLatin1Encoding 0 164 getinterval aload pop
  74.     /euro
  75.     ISOLatin1Encoding 165 91 getinterval aload pop
  76. ] def
  77. /getfont {ISOLatin8Encoding ReEncode findfont exch scalefont def} bind def
  78. /getsymbol {findfont exch scalefont def} bind def
  79. %%EndResource
  80.  
  81. %% Fontpsoidoname, Fontgroesse, Realname, Programm (siehe oben)
  82. /Times10Zeile 10 def
  83. /Times10 Times10Zeile /OF0 /Times-Roman /OF0 getfont
  84. /Times24Zeile 24 def
  85. /Times24 Times24Zeile /OF0 /Times-Roman /OF0 getfont
  86.  
  87. /Seite 1 def
  88. /SeitenNr 4 string def
  89. /N 0 def
  90. /B 1 def
  91. /M 0 def
  92.  
  93. %% Definition der Überschrift
  94. /Ueberschrift
  95. {
  96.     /BoxX1 DokumentRandX def
  97.     /BoxX2 486 def
  98.     /BoxY1 DokumentRandY 2 sub Times10Zeile sub Times10Zeile sub def
  99.     /BoxY2 Times10Zeile Times10Zeile add Times10Zeile add def
  100.  
  101.     0.9 setgray
  102.     BoxX1 BoxY1 BoxX2 BoxY2 rectfill
  103.     0.0 setgray
  104.     BoxX1 BoxY1 BoxX2 BoxY2 rectstroke
  105.  
  106.     DokumentRandX 3 add DokumentRandY moveto
  107.     (RechNr.) show
  108.  
  109.     DokumentRandX 50 add DokumentRandY moveto
  110.     (Datum) show
  111.  
  112.     DokumentRandX 120 add DokumentRandY moveto
  113.     (Rechnungsempfänger) show
  114.  
  115.     DokumentRandY Times10Zeile sub /DokumentRandY exch def
  116.  
  117.     DokumentRandX 50 add DokumentRandY moveto
  118.     (ArtikelNr) show
  119.  
  120.     DokumentRandX DokumentRandY moveto
  121.     (Anzahl) dup stringwidth
  122.     pop 140 exch sub
  123.     DokumentRandX add DokumentRandY moveto show
  124.  
  125.     DokumentRandX 145 add DokumentRandY moveto
  126.     (Einheit) show
  127.  
  128.     DokumentRandX DokumentRandY moveto
  129.     (MWSt %) dup stringwidth
  130.     pop 220 exch sub
  131.     DokumentRandX add DokumentRandY moveto show
  132.  
  133.     DokumentRandX 230 add DokumentRandY moveto
  134.     (Artikelgruppe) show
  135.  
  136.     DokumentRandX 290 add DokumentRandY moveto
  137.     (Bezeichnung) show
  138.  
  139.     DokumentRandY Times10Zeile sub /DokumentRandY exch def
  140.  
  141.     DokumentRandX DokumentRandY moveto
  142.     (E.preis Netto) dup stringwidth
  143.     pop 140 exch sub
  144.     DokumentRandX add DokumentRandY moveto show
  145.  
  146.     DokumentRandX DokumentRandY moveto
  147.     (E.preis Brutto) dup stringwidth
  148.     pop 210 exch sub
  149.     DokumentRandX add DokumentRandY moveto show
  150.  
  151.     DokumentRandX DokumentRandY moveto
  152.     (Position Netto) dup stringwidth
  153.     pop 280 exch sub
  154.     DokumentRandX add DokumentRandY moveto show
  155.  
  156.     DokumentRandX DokumentRandY moveto
  157.     (MWSt) dup stringwidth
  158.     pop 340 exch sub
  159.     DokumentRandX add DokumentRandY moveto show
  160.  
  161.     DokumentRandX DokumentRandY moveto
  162.     (Position Brutto) dup stringwidth
  163.     pop 420 exch sub
  164.     DokumentRandX add DokumentRandY moveto show
  165.  
  166.     DokumentRandX DokumentRandY moveto
  167.     (Endsumme) dup stringwidth
  168.     pop 480 exch sub
  169.     DokumentRandX add DokumentRandY moveto show
  170.  
  171.     DokumentRandY Times10Zeile sub 5 sub /DokumentRandY exch def
  172.  
  173. } def
  174.  
  175. %% Ausgabe der Kopfdaten
  176.  
  177. Times24 setfont
  178.  
  179. DokumentRandX DokumentRandY moveto
  180. (Ausgangsrechnungen) dup stringwidth pop
  181. PageSize 0 get exch sub 2 div cvi DokumentRandY moveto show
  182.  
  183. DokumentRandY Times24Zeile sub Times24Zeile sub /DokumentRandY exch def
  184.  
  185. Times10 setfont
  186.  
  187. Ueberschrift
  188.  
  189. /ARechnungElemente ARechnungTabelle length def
  190. /ARechnungPosition 0 def
  191.  
  192. ARechnungTabelle
  193. {
  194.  
  195.     ARechnungPosition 1 add /ARechnungPosition exch def
  196.  
  197.     ARechnungElemente ARechnungPosition eq
  198.     {
  199.         /Zeilen 2 def
  200.         /pos exch def
  201.         pos 21 get
  202.         {
  203.             {
  204.                 Zeilen 1 add /Zeilen exch def
  205.             } if
  206.         } forall
  207.  
  208.         Zeilen Times10Zeile mul cvi 50 add DokumentRandY gt
  209.         {
  210.             DokumentRandX 450 add 50 moveto
  211.             (Seite: ) show
  212.             Seite SeitenNr cvs show
  213.             showpage
  214.  
  215.             /DokumentRandY DokumentRandYOriginal def
  216.             Ueberschrift
  217.             Seite 1 add /Seite exch def
  218.         } if
  219.  
  220.         DokumentRandX 3 add DokumentRandY moveto
  221.         (Gesamtsumme \(Netto\):) show
  222.         DokumentRandX DokumentRandY moveto
  223.         pos 19 get N get dup stringwidth
  224.         pop 480 exch sub
  225.         DokumentRandX add DokumentRandY moveto
  226.         show
  227.         DokumentRandY Times10Zeile sub /DokumentRandY exch def
  228.  
  229.         /Zaehler 0 def
  230.         pos 21 get
  231.         {
  232.             {
  233.                 DokumentRandX 3 add DokumentRandY moveto
  234.                 (Mehrwertsteuer \() show
  235.                 pos 20 get Zaehler get show
  236.                 (%, Netto: ) show
  237.                 pos 36 get Zaehler get N get show
  238.                 (, Brutto: ) show
  239.                 pos 36 get Zaehler get B get show
  240.                 (\):) show
  241.  
  242.                 DokumentRandX DokumentRandY moveto
  243.                 pos 33 get Zaehler get M get dup stringwidth
  244.                 pop 480 exch sub
  245.                 DokumentRandX add DokumentRandY moveto
  246.                 show
  247.  
  248.                 DokumentRandY Times10Zeile sub /DokumentRandY exch def
  249.             } if
  250.  
  251.             Zaehler 1 add /Zaehler exch def
  252.         } forall
  253.  
  254.         DokumentRandX 3 add DokumentRandY moveto
  255.         (Gesamtsumme \(Brutto\):) show
  256.         DokumentRandX DokumentRandY moveto
  257.         pos 19 get B get dup stringwidth
  258.         pop 480 exch sub
  259.         DokumentRandX add DokumentRandY moveto
  260.         show
  261.         DokumentRandY Times10Zeile sub /DokumentRandY exch def
  262.  
  263.     }
  264.     {
  265.         /Zeilen 4 def
  266.         /pos exch def
  267.         pos 28 get
  268.         {
  269.             Zeilen 1 add /Zeilen exch def
  270.         } if
  271.  
  272.         pos 66 get
  273.         {
  274.             0 ne
  275.             {
  276.                 Zeilen 1 add /Zeilen exch def
  277.             } if
  278.         } forall
  279.  
  280.         pos 36 get
  281.         {
  282.             Zeilen 1 add /Zeilen exch def
  283.         } if
  284.  
  285.         pos 71 get
  286.         {
  287.             Zeilen 2 add /Zeilen exch def
  288.             1 get 11 get
  289.             {
  290.                 0 ne
  291.                 {
  292.                     Zeilen 1 add /Zeilen exch def
  293.                 } if
  294.             } forall
  295.         } forall
  296.  
  297.         pos 47 get
  298.         {
  299.             {
  300.                 Zeilen 1 add /Zeilen exch def
  301.             } if
  302.         } forall
  303.  
  304.         pos 30 get
  305.         {
  306.             Zeilen 1 add /Zeilen exch def
  307.         } if
  308.  
  309.         Zeilen Times10Zeile mul cvi 50 add DokumentRandY gt
  310.         {
  311.             DokumentRandX 450 add 50 moveto
  312.             (Seite: ) show
  313.             Seite SeitenNr cvs show
  314.             showpage
  315.  
  316.             /DokumentRandY DokumentRandYOriginal def
  317.             Ueberschrift
  318.             Seite 1 add /Seite exch def
  319.         } if
  320.  
  321.         DokumentRandX 3 add DokumentRandY moveto
  322.         pos 0 get show
  323.  
  324.         DokumentRandX 50 add DokumentRandY moveto
  325.         pos 13 get 1 get show
  326.  
  327.         DokumentRandX 120 add DokumentRandY moveto
  328.         pos 7 get 0 eq
  329.         {
  330.             (Barverkauf) show
  331.         }
  332.         {
  333.             pos 3 get 1 get 1 get 0 get show
  334.         } ifelse
  335.  
  336.         DokumentRandY Times10Zeile sub /DokumentRandY exch def
  337.  
  338.         pos 71 get
  339.         {
  340.             /art exch def
  341.  
  342.             DokumentRandX 50 add DokumentRandY moveto
  343.             art 1 get 1 get show
  344.  
  345.             DokumentRandX DokumentRandY moveto
  346.             art 1 get 2 get dup stringwidth
  347.             pop 140 exch sub
  348.             DokumentRandX add DokumentRandY moveto
  349.             show
  350.  
  351.             DokumentRandX 145 add DokumentRandY moveto
  352.             art 0 get 5 get show
  353.  
  354.             DokumentRandX DokumentRandY moveto
  355.             art 1 get 8 get dup stringwidth
  356.             pop 220 exch sub
  357.             DokumentRandX add DokumentRandY moveto
  358.             show
  359.  
  360.             DokumentRandX 230 add DokumentRandY moveto
  361.             art 0 get 12 get show
  362.  
  363.             DokumentRandX 290 add DokumentRandY moveto
  364.             art 0 get 3 get show
  365.  
  366.             /Zeilen 0 def
  367.             art 1 get 11 get
  368.             {
  369.                 0 ne
  370.                 {
  371.                     DokumentRandY Times10Zeile sub /DokumentRandY exch def
  372.  
  373.                     DokumentRandX 100 add DokumentRandY moveto
  374.                     art 1 get 13 get Zeilen get show
  375.  
  376.                     DokumentRandX DokumentRandY moveto
  377.                     art 1 get 12 get Zeilen get N get dup stringwidth
  378.                     pop 210 exch sub
  379.                     DokumentRandX add DokumentRandY moveto
  380.                     show
  381.  
  382.                     DokumentRandX DokumentRandY moveto
  383.                     art 1 get 12 get Zeilen get B get dup stringwidth
  384.                     pop 280 exch sub
  385.                     DokumentRandX add DokumentRandY moveto
  386.                     show
  387.  
  388.                     Do